home *** CD-ROM | disk | FTP | other *** search
- -- background: 5647 from stack: in
- -- bmap block id: 11105
- -- flags: 0000
- -- background id: 0
- -- name:
- ----- HyperTalk script -----
- on openCard
- set lockScreen to true
- multiply bkgnd field "whole" by 0
- multiply bkgnd field "trade" by 0
- multiply bkgnd field "sub" by 0
- multiply bkgnd field "tax" by 0
- multiply bkgnd field "total" by 0
- multiply bkgnd field "ship" by 0
- set hilite of bkgnd button id 9 to false
- set hilite of bkgnd button id 10 to false
- set hilite of bkgnd button id 43 to false
- set hilite of bkgnd button id 18 to false
- set hilite of bkgnd button id 19 to false
- set hilite of bkgnd button id 37 to false
- set hilite of bkgnd button id 40 to false
- set hilite of bkgnd button id 41 to false
- set hilite of bkgnd button id 11 to false
- delete line one of bkgnd field "name"
- delete line one of bkgnd field "address"
- delete line one of bkgnd field "city"
- delete line one of bkgnd field "state"
- delete line one of bkgnd field "zip"
- delete line one of bkgnd field "area code"
- delete line one of bkgnd field "phone"
- delete line one of bkgnd field "check"
- delete line one of bkgnd field "No."
- delete line one of bkgnd field "exp date"
- set lockScreen to false
- end openCard
-
-
- -- part 2 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=46 top=71 right=89 bottom=362
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: name
-
-
- -- part 3 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=60 top=88 right=106 bottom=362
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: address
-
-
- -- part 4 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=35 top=105 right=122 bottom=191
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: city
-
-
- -- part 5 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=234 top=105 right=122 bottom=290
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: state
-
-
- -- part 6 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=28 top=121 right=138 bottom=120
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: zip
-
-
- -- part 7 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=172 top=121 right=137 bottom=205
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: area code
-
-
- -- part 8 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=210 top=121 right=138 bottom=290
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: phone
-
-
- -- part 9 (button)
- -- low flags: 00
- -- high flags: 8005
- -- rect: left=1 top=168 right=189 bottom=137
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Check enclosed #
- ----- HyperTalk script -----
- on mouseUp
- set hilite of bkgnd button "check enclosed #" to true
- set hilite of bkgnd button "MasterCard" to false
- set hilite of bkgnd button "Visa" to false
- click at loc of bkgnd field "check"
- end mouseUp
-
-
-
- -- part 10 (button)
- -- low flags: 00
- -- high flags: 8005
- -- rect: left=1 top=188 right=208 bottom=108
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: MasterCard
- ----- HyperTalk script -----
- on mouseUp
- set hilite of bkgnd button "MasterCard" to true
- set hilite of bkgnd button "check enclosed #" to false
- set hilite of bkgnd button "Visa" to false
- click at loc of bkgnd field "No."
- end mouseUp
-
-
-
- -- part 11 (button)
- -- low flags: 00
- -- high flags: A005
- -- rect: left=129 top=188 right=208 bottom=236
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Visa
- ----- HyperTalk script -----
- on mouseUp
- set hilite of bkgnd button "Visa" to true
- set hilite of bkgnd button "check enclosed #" to false
- set hilite of bkgnd button "MasterCard" to false
- click at loc of bkgnd field "No."
- end mouseUp
-
-
-
- -- part 12 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=134 top=168 right=185 bottom=272
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Check
-
-
- -- part 13 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=28 top=206 right=223 bottom=285
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: No.
-
-
- -- part 14 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=68 top=222 right=240 bottom=285
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: exp date
-
-
- -- part 18 (button)
- -- low flags: 00
- -- high flags: A005
- -- rect: left=67 top=282 right=303 bottom=253
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: MacMoney Pkg ($119.95)
- ----- HyperTalk script -----
- on mouseUp
- click at loc of bkgnd field "whole"
- click at loc of bkgnd field "whole"
-
- end mouseUp
-
-
-
- -- part 19 (button)
- -- low flags: 00
- -- high flags: A005
- -- rect: left=67 top=302 right=323 bottom=253
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Trade-in Pkg ($35.00)*
- ----- HyperTalk script -----
- on mouseUp
- click at loc of bkgnd field "trade"
- click at loc of bkgnd field "trade"
- end mouseUp
-
-
-
- -- part 21 (field)
- -- low flags: 00
- -- high flags: 0002
- -- rect: left=2 top=283 right=301 bottom=39
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Whole
-
-
- -- part 22 (field)
- -- low flags: 00
- -- high flags: 0002
- -- rect: left=2 top=301 right=319 bottom=39
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Trade
-
-
- -- part 24 (button)
- -- low flags: 00
- -- high flags: 8004
- -- rect: left=350 top=286 right=308 bottom=450
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Print Form
- ----- HyperTalk script -----
- on mouseUp
- hide menuBar
- hide message box
- hide bkgnd button "cancel"
- hide bkgnd button "home"
- hide bkgnd button "main Menu"
- hide bkgnd button "print form"
- hide bkgnd field "order"
-
- doMenu print card
- show bkgnd button "print form"
- show bkgnd button "home"
- show bkgnd button "main Menu"
- show bkgnd button "cancel"
- show bkgnd field "order"
- end mouseUp
-
-
-
- -- part 25 (button)
- -- low flags: 00
- -- high flags: 8004
- -- rect: left=374 top=28 right=50 bottom=474
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Cancel
- ----- HyperTalk script -----
- on mouseUp
- set lockScreen to true
- multiply bkgnd field "whole" by 0
- multiply bkgnd field "trade" by 0
- multiply bkgnd field "sub" by 0
- multiply bkgnd field "tax" by 0
- multiply bkgnd field "total" by 0
- multiply bkgnd field "ship" by 0
- set hilite of bkgnd button id 9 to false
- set hilite of bkgnd button id 10 to false
- set hilite of bkgnd button id 43 to false
- set hilite of bkgnd button id 18 to false
- set hilite of bkgnd button id 19 to false
- set hilite of bkgnd button id 37 to false
- set hilite of bkgnd button id 40 to false
- set hilite of bkgnd button id 41 to false
- set hilite of bkgnd button id 11 to false
- delete line one of bkgnd field "name"
- delete line one of bkgnd field "address"
- delete line one of bkgnd field "city"
- delete line one of bkgnd field "state"
- delete line one of bkgnd field "zip"
- delete line one of bkgnd field "area code"
- delete line one of bkgnd field "phone"
- delete line one of bkgnd field "check"
- delete line one of bkgnd field "No."
- delete line one of bkgnd field "exp date"
- set lockScreen to false
- Visual effect iris close slowly
- pop card
-
- end mouseUp
-
-
-
- -- part 26 (button)
- -- low flags: 00
- -- high flags: 8004
- -- rect: left=374 top=52 right=74 bottom=474
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Home
- ----- HyperTalk script -----
- on mouseUp
- set lockScreen to true
- multiply bkgnd field "whole" by 0
- multiply bkgnd field "trade" by 0
- multiply bkgnd field "sub" by 0
- multiply bkgnd field "tax" by 0
- multiply bkgnd field "total" by 0
- multiply bkgnd field "ship" by 0
- set hilite of bkgnd button id 9 to false
- set hilite of bkgnd button id 10 to false
- set hilite of bkgnd button id 43 to false
- set hilite of bkgnd button id 18 to false
- set hilite of bkgnd button id 19 to false
- set hilite of bkgnd button id 37 to false
- set hilite of bkgnd button id 40 to false
- set hilite of bkgnd button id 41 to false
- set hilite of bkgnd button id 11 to false
- delete line one of bkgnd field "name"
- delete line one of bkgnd field "address"
- delete line one of bkgnd field "city"
- delete line one of bkgnd field "state"
- delete line one of bkgnd field "zip"
- delete line one of bkgnd field "area code"
- delete line one of bkgnd field "phone"
- delete line one of bkgnd field "check"
- delete line one of bkgnd field "No."
- delete line one of bkgnd field "exp date"
- set lockScreen to false
- Visual effect iris close slowly
- go home
- end mouseUp
-
-
-
- -- part 29 (button)
- -- low flags: 00
- -- high flags: 8004
- -- rect: left=374 top=76 right=98 bottom=474
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Main Menu
- ----- HyperTalk script -----
- on mouseUp
- set lockScreen to true
- multiply bkgnd field "whole" by 0
- multiply bkgnd field "trade" by 0
- multiply bkgnd field "sub" by 0
- multiply bkgnd field "tax" by 0
- multiply bkgnd field "total" by 0
- multiply bkgnd field "ship" by 0
- set hilite of bkgnd button id 9 to false
- set hilite of bkgnd button id 10 to false
- set hilite of bkgnd button id 43 to false
- set hilite of bkgnd button id 18 to false
- set hilite of bkgnd button id 19 to false
- set hilite of bkgnd button id 37 to false
- set hilite of bkgnd button id 40 to false
- set hilite of bkgnd button id 41 to false
- set hilite of bkgnd button id 11 to false
- delete line one of bkgnd field "name"
- delete line one of bkgnd field "address"
- delete line one of bkgnd field "city"
- delete line one of bkgnd field "state"
- delete line one of bkgnd field "zip"
- delete line one of bkgnd field "area code"
- delete line one of bkgnd field "phone"
- delete line one of bkgnd field "check"
- delete line one of bkgnd field "No."
- delete line one of bkgnd field "exp date"
- set lockScreen to false
- Visual effect iris close slowly
- go to card "Main Menu"
- end mouseUp
-
-
-
- -- part 30 (field)
- -- low flags: 01
- -- high flags: 4000
- -- rect: left=432 top=146 right=163 bottom=493
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Sub
-
-
- -- part 31 (field)
- -- low flags: 01
- -- high flags: 4000
- -- rect: left=432 top=173 right=190 bottom=493
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Tax
-
-
- -- part 33 (field)
- -- low flags: 01
- -- high flags: 4000
- -- rect: left=433 top=236 right=253 bottom=492
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Total
-
-
- -- part 37 (button)
- -- low flags: 00
- -- high flags: A006
- -- rect: left=299 top=145 right=167 bottom=399
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Subtotal
- ----- HyperTalk script -----
- on mouseUp
- if bkgnd field "Whole">0 then put 1 into it
- set hilite of bkgnd button "subtotal" to true
- set hilite of bkgnd button "6.5% tax" to false
- set hilite of bkgnd button "ship. / hand." to false
- set hilite of bkgnd button "total" to false
-
- set numberFormat to "000.00"
-
- put bkgnd field "whole" into hwhole
- put 119.95*hwhole into bkgnd field "sub"
- put bkgnd field "trade" into htrade
- put 35.00*htrade into newsub
- add newsub to bkgnd field "sub"
-
- put 000.00 into bkgnd field "tax"
- put 000.00 into bkgnd field "total"
- put 000.00 into bkgnd field "ship"
-
- if bkgnd field "sub"<= 000.00 then set hilite of bkgnd button "subtotal" to false
- end mouseUp
-
-
-
- -- part 40 (button)
- -- low flags: 00
- -- high flags: A006
- -- rect: left=299 top=171 right=193 bottom=376
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: 6.5% Tax
- ----- HyperTalk script -----
- on mouseUp
- set hilite of bkgnd button "6.5% Tax" to true
- set hilite of bkgnd button "ship. / hand." to false
- set hilite of bkgnd button "total" to false
-
- set numberFormat to "000.00"
-
- put 000.00 into bkgnd field "ship"
- put 000.00 into bkgnd field "total"
-
- put bkgnd field "sub" into tax
- if bkgnd field "whole">= 1 then put .065*tax into bkgnd field "Tax"
- else put 000.00 into bkgnd field "Tax"
- if bkgnd field "trade">= 1 then put .065*tax into bkgnd field "Tax"
- else put 000.00 into bkgnd field "Tax"
- if bkgnd field "whole">= 1 then put .065*tax into bkgnd field "Tax"
-
- if bkgnd field "tax"<= 000.00 then set hilite of bkgnd button "6.5% tax" to false
- end mouseUp
-
-
- put .065*tax into bkgnd field "Tax"
-
-
-
- -- part 41 (button)
- -- low flags: 00
- -- high flags: A006
- -- rect: left=299 top=237 right=259 bottom=399
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Total
- ----- HyperTalk script -----
- on mouseUp
- set numberFormat to "000.00"
- set hilite of bkgnd button "total" to true
- put 00.00 into totalh
- add bkgnd field "sub" to totalh
- add bkgnd field "tax" to totalh
- add bkgnd field "ship" to totalh
- put totalh into bkgnd field "total"
- if bkgnd field "whole">= 1 then put totalh into bkgnd field "total"
- else put 000.00 into bkgnd field "total"
- if bkgnd field "trade">= 1 then put totalh into bkgnd field "total"
- else put 000.00 into bkgnd field "total"
- if bkgnd field "whole">= 1 then put totalh into bkgnd field "total"
-
-
- if bkgnd field "total"<= 000.00 then set hilite of bkgnd button "total" to false
- if bkgnd field "ship"<= 000.00 then set hilite of bkgnd button "ship. / hand." to false
- if bkgnd field "tax"<= 000.00 then set hilite of bkgnd button "6.5% tax" to false
-
-
- end mouseUp
-
- put totalh into bkgnd field "total"
-
-
- -- part 43 (button)
- -- low flags: 00
- -- high flags: A006
- -- rect: left=299 top=211 right=233 bottom=402
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Ship. / Hand.
- ----- HyperTalk script -----
- on mouseUp
- set hilite of bkgnd button "ship. / Hand." to true
- set hilite of bkgnd button "total" to false
- set numberFormat to "000.00"
-
- if bkgnd field "whole">= 1 then put 003.00 into bkgnd field "ship"
- else put 000.00 into bkgnd field "ship"
-
- if bkgnd field "trade">= 1 then put 003.00 into bkgnd field "ship"
- else put 000.00 into bkgnd field "ship"
-
- if bkgnd field "whole">= 1 then put 003.00 into bkgnd field "ship"
-
- put 000.00 into bkgnd field "total"
-
- if bkgnd field "ship"<= 000.00 then set hilite of bkgnd button "ship. / hand." to false
-
- end mouseUp
-
-
-
-
-
- -- part 44 (field)
- -- low flags: 01
- -- high flags: 4000
- -- rect: left=433 top=209 right=226 bottom=494
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: ship
-
-
- -- part 45 (field)
- -- low flags: 01
- -- high flags: 0000
- -- rect: left=305 top=115 right=134 bottom=502
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 10
- -- style flags: 0
- -- line height: 13
- -- part name: order
-